home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / pcf / ds.dir / 00347.ls < prev    next >
Encoding:
Text File  |  1995-10-08  |  755 b   |  35 lines
  1. on mouseUp
  2.   global prev, lastFrame
  3.   if count(movielist) > 0 then
  4.     set Chosen to 0
  5.     repeat with i = 1 to count(movielist)
  6.       if getAt(selected, i) = 1 then
  7.         set Chosen to 1
  8.       end if
  9.     end repeat
  10.     if Chosen = 1 then
  11.       set prev to 1
  12.       set lastFrame to the frame
  13.       put "just after LastFrame set"
  14.       repeat with i = 13 to 18
  15.         puppetSprite(i, 1)
  16.         set the visible of sprite i to 1
  17.         puppetSprite(i, 0)
  18.       end repeat
  19.       unLoadCast()
  20.       play frame "PPrv"
  21.       updateStage()
  22.     else
  23.       repeat with x = 13 to 18
  24.         puppetSprite(x, 0)
  25.       end repeat
  26.       go("NoSel")
  27.     end if
  28.   else
  29.     repeat with x = 13 to 18
  30.       puppetSprite(x, 0)
  31.     end repeat
  32.     go("NoMov")
  33.   end if
  34. end
  35.